home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 03.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  259b  |  8 lines
  1. 10 gosub10000: rem datei deffinieren
  2. 100 rem steuerprogramm ---------------------------------------------------------
  3. 110 x$="":input"welchen begriff soll ich suchen ";x$
  4. 120 for sa=1 to sz
  5. 130 : if x$=d$(sa) thenprint"der gesuchte begriff steht in satz ";sa
  6. 140 next sa
  7. 150 goto110
  8.